home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 2 of 3).adf / 3D_MENUS / 3d_menus_source.lha / 3d_Text_Proc.amos / 3d_Text_Proc.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  746 b   |  55 lines
  1. '
  2. '********************************************
  3. '
  4. '                 3D TEXT    
  5. '            ----------------- 
  6. '
  7. '         By Malcolm Lavery 1993 
  8. '
  9. '********************************************
  10. '
  11. '
  12. Screen Open 0,640,256,16,Hires
  13. Palette $0,$FFF,,,,$DDD,$AAA,$555,$F00,$F0,$F
  14. Curs Off : Cls 6 : Flash Off 
  15. '
  16. '
  17. '
  18. '
  19. _3D_TEXT[80,100,"TEXT STANDING OUT",0]
  20. '
  21. _3D_TEXT[100,120,"TEXT SUNK IN",1]
  22. '
  23. '
  24. '
  25. '
  26. Procedure _3D_TEXT[X,Y,TEX$,IN_OUT]
  27.    '
  28.    Gr Writing 0
  29.    '
  30.    If IN_OUT=0
  31.       HILIGHT=5
  32.       SHADOW=7
  33.    End If 
  34.    '
  35.    '
  36.    If IN_OUT=1
  37.       HILIGHT=7
  38.       SHADOW=5
  39.    End If 
  40.    '
  41.    '
  42.    Ink HILIGHT
  43.    Text X-1,Y-1,TEX$
  44.    '
  45.    Ink SHADOW
  46.    Text X+1,Y+1,TEX$
  47.    '
  48.    Ink 6
  49.    Text X,Y,TEX$
  50.    '
  51.    '
  52.    Gr Writing 1
  53.    '
  54.    '
  55. End Proc